|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
Bernhard F. am 27.04.2009 um 10:39 Uhr (0)
Hallo zusammen,wie kann man in Excel per VBA abfragen, welche Blöcke in der aktiven Zeichnung vorhanden sind?Danke im voraus.------------------Gruß, Bernhard F.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte von Excel auf Attribute übergeben
Bernhard F. am 17.03.2008 um 11:01 Uhr (0)
Ich möchte von einer Exceldatei bestimmte Werte auf einen ausgewählten Blockattribut übergegeben.folgenede vorgehensweise:1. Excel öffen2. Makro aufrufen3. Block in Acad wählen (Attribute sollen sich ändern)Kann mir hier jemand helfen, am besten mit einem Beispiel?Danke im Voraus.Bernhard F.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte von Excel auf Attribute übergeben
Bernhard F. am 17.03.2008 um 11:42 Uhr (0)
Hallo CarstenIch hab z.B.: das Beispiel blockattr.xls verwendet.Hier ist es aber so, dass ich das mit den Block anwählen nicht hingebracht habe.Und hier werden ja alle Daten wieder in den Block zurückgeschrieben. Ich möchte aber, wie gesagt den Block anwählen und nur bestimmte Daten von Excel zurückgeben. Ich möchte selber bestimmen von welcher Spalte und Zeile ich die Daten übernehme.Bernhard F.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
Bernhard F. am 27.04.2009 um 13:00 Uhr (0)
Hallo Dennis,das wars. Das hab ich gesucht.Danke.------------------Gruß, Bernhard F.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte von Excel auf Attribute übergeben
Bernhard F. am 18.03.2008 um 13:03 Uhr (0)
Hallo Wilfried,Danke für die Hilfe.Es funktioniert so weit.In der Exceltabelle finde ich die Zeile mit der Zeichnungsnummer.------------------Gruß, Bernhard F.
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : In Excel vorhandene Blöcke auflisten
Bernhard F. am 27.04.2009 um 11:44 Uhr (0)
Hallo Wilfried,ich will nur wissen welche Blöcke sich in der Zeichnung befinden. (Auflistung der Blocknamen).Code: Dim acad As AcadApplication Dim fType(0 To 1) As Integer, fData(0 To 1) Dim adBlockSS As AcadSelectionSet Dim adBlock As AcadBlockReference Dim adBlockAttributes As Variant Dim adBlockList As String Dim i As Integer Set adBlockSS = acad.ActiveDocument.SelectionSets("adBlockSS")hier ist der Fehler If Err Then Set adBlockSS = acad.ActiveDocument.SelectionSets.Add("adBlockSS") adBlockSS.Clear fTy ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Werte von Excel auf Attribute übergeben
Bernhard F. am 17.03.2008 um 15:03 Uhr (0)
Zitat:[/QUOTE]Woher soll das Programm wissen welche Attribute sich ändern sollen ?[QUOTE]Die gebe ich an. z.B.: ba(6).TextString = Cells(15, 6).Value Zitat:[/QUOTE]Wie ist denn die Verbindung der Blockreferenz zur Exceltabelle ? (Handle, Koordinate, ???)[QUOTE]Das ist eben die Frage, das kann ich nicht sagen. Zitat:[/QUOTE]Wenn man das dem Programm immer blockweise angeben musst, kann man die Werte ja fast von Hand ändern.[QUOTE]Das ist richtig, aber die Exceltabelle (Blattverzeichniss) wird von jemanden ...
|
| In das Form AutoCAD VBA wechseln |
